home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t9.d64 / chopper.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  2KB  |  75 lines
  1. 1 POKE53280,0:POKE53281,0:PRINT"[147]"
  2. 2 REM ****************
  3. 3 REM *BY MIKE FLAVEL*
  4. 4 REM ****************
  5. 5 REM USE [F1] TO INCREASE SPEED
  6. 6 REM USE [F7] TO DECREASE SPEED
  7. 7 REM USE [^] TO END DEMO
  8. 8 REM USE [_] TO HALT COPTER
  9. 9 REM USE [D] TO USE AUTO PIOLET
  10. 10 IFX=1THEN30
  11. 11 POKE54296,15
  12. 20 X=1:LOAD"CHOPPER.D",8,1
  13. 30 V=53248:PRINT"[147]"
  14. 31 FORZ=1984TO2023:POKEZ,100:POKEZ+54272,1:NEXT
  15. 32 POKE54296,10:POKE54277,25:POKE54278,128:POKE54276,129
  16. 33 FORX=56278TO56281:POKEX,3:POKEX-54272,111:NEXT
  17. 40 POKE2041,128:POKEV+21,2
  18. 45 PRINT"PRESS 'S' TO START"
  19. 60 X=200:Y=227:POKE54296,0
  20. 61 GETA$:IFA$<>"S"THEN61
  21. 62 POKE54296,15
  22. 63 PRINT"                   "
  23. 70 POKEV+40,1:POKEV+29,3
  24. 71 POKE1024,S/10+48:IFS<135-34THENPOKE54273,34+S:POKE54272,135+S:IFX>340THENX=1
  25. 72 IFX>255THENG=1: POKEV+16,3:POKEV+2,X-255:POKEV+3,Y:POKE2041,128:GOTO74
  26. 73 IFX<255THENPOKEV+2,X:POKEV+3,Y:POKEV+16,0:POKE2041,128
  27. 74 :POKEV+21,2:IFY>228THEN200
  28. 75 IFX<1 THENX=340:IFG<>3THENG=1
  29. 77 IFG=9THENFORH=56276TO56281:POKEH,1:POKEH-54272,100:NEXT:G=3
  30. 81 IFQ=0THENGETA$:IFA$="[133]"THENS=S+10:IFS>90THENS=90
  31. 82 IFA$="_"THENF=0
  32. 83 IFA$="[134]"THENS=S-10:IFS<0THENS=0
  33. 84 IFY<43THENY=43:F=2:GOTO71
  34. 85 IFS>9THENPOKE2041,129:POKE54276,129
  35. 86 IFS>9THENPOKE54276,128
  36. 87 IFA$="^"THENFORX=1TO50:NEXT   :POKE2041,128:FORX=1TO50:NEXT:POKE2041,129:GOTO87
  37. 88 IFA$="D"THENF=INT(RND(1)*14)+1:Q=1
  38. 89 IFS<9THENGOTO 300
  39. 90 P=PEEK(56320)AND15
  40. 91 IFP=14THENF=1
  41. 92 IFP=13THENF=2
  42. 93 IFP=11THENF=3
  43. 94 IFP= 7THENF=4
  44. 95 IFP=10THENF=5
  45. 96 IFP= 6THENF=6
  46. 97 IFP= 5THENF=7
  47. 98 IFP= 9THENF=8
  48. 99 IFP=15THENF=F
  49. 100 IFF=14THENY=Y-S/10:IFY>228THENGOTO150
  50. 105 IFF=1THENY=Y-S/10:GOTO71
  51. 110 IFF=2THENY=Y+S/10:GOTO71
  52. 120 IFF=3THENX=X-S/10:IFX<1THENX=340:  GOTO71
  53. 130 IFF=4THENX=X+S/10:GOTO71
  54. 131 IFF=5THENX=X-S/10:Y=Y-S/10:IFX<1THENX=340:GOTO71
  55. 132 IFF=6THENX=X+S/10:Y=Y-S/10:GOTO71
  56. 133 IFF=7THENX=X+S/10:Y=Y+S/10:GOTO71
  57. 134 IFF=8THENX=X-S/10:Y=Y+S/10:IFX<1THENX=340:GOTO71
  58. 140 GOTO71
  59. 150 POKEV+3,Y-2:POKEV+3,Y-1:Y=227:F=0:GOTO71
  60. 200 IFS>30THENPOKE2041,130:POKE2041,131:POKE54276,128:POKE54276,129:K=K+1
  61. 201 IFS>30ANDK<100THEN200
  62. 202 IFS>30THENRUN30
  63. 210 GOTO150
  64. 300 REM NO THING
  65. 301 POKE54276,128
  66. 302 POKE1024,S/10+48
  67. 310 IFY>226THEN350
  68. 320 FORG=YTO226
  69. 321 POKE54276,128
  70. 330 POKEV+3,Y+(G-Y):POKE2041,128:POKE54276,129:POKE2041,129:POKE54276,128
  71. 340 POKE54276,128:IFS>30THEN200
  72. 341 POKE54276,128
  73. 345 NEXTG
  74. 350 POKE2041,132:Y=227:GOTO81
  75.